home *** CD-ROM | disk | FTP | other *** search
- object frmStatistics: TfrmStatistics
- Left = 361
- Top = 104
- HelpContext = 6
- BorderStyle = bsDialog
- Caption = 'Midnight Sunitaire Statistics'
- ClientHeight = 257
- ClientWidth = 271
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- OnActivate = FormActivate
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 271
- Height = 223
- Align = alClient
- BevelOuter = bvNone
- BorderWidth = 5
- ParentColor = True
- TabOrder = 0
- object PageControl: TPageControl
- Left = 5
- Top = 5
- Width = 261
- Height = 213
- ActivePage = tsOverall
- Align = alClient
- HotTrack = True
- Images = frmMain.ImageList
- TabOrder = 0
- OnChange = PageControlChange
- object tsOverall: TTabSheet
- Caption = 'Statistics'
- ImageIndex = 11
- object Label3: TLabel
- Left = 8
- Top = 8
- Width = 100
- Height = 13
- Caption = 'Session Statistics for:'
- end
- object btEasy: TSpeedButton
- Tag = 3
- Left = 8
- Top = 52
- Width = 48
- Height = 17
- GroupIndex = 1
- Caption = 'Easy'
- OnClick = ShowStat
- end
- object btMedium: TSpeedButton
- Tag = 2
- Left = 55
- Top = 52
- Width = 48
- Height = 17
- GroupIndex = 1
- Caption = 'Medium'
- OnClick = ShowStat
- end
- object btHard: TSpeedButton
- Tag = 1
- Left = 102
- Top = 52
- Width = 48
- Height = 17
- GroupIndex = 1
- Down = True
- Caption = 'Hard'
- OnClick = ShowStat
- end
- object btExtreme: TSpeedButton
- Left = 149
- Top = 52
- Width = 48
- Height = 17
- GroupIndex = 1
- Caption = 'Extreme'
- OnClick = ShowStat
- end
- object btOverall: TSpeedButton
- Left = 144
- Top = 76
- Width = 100
- Height = 17
- GroupIndex = 2
- Caption = 'Overall Statistics'
- OnClick = btOverallClick
- end
- object btSession: TSpeedButton
- Left = 144
- Top = 92
- Width = 100
- Height = 17
- GroupIndex = 2
- Down = True
- Caption = 'Session Statistics'
- OnClick = btSessionClick
- end
- object btClear: TSpeedButton
- Left = 144
- Top = 115
- Width = 100
- Height = 17
- Caption = 'Clear Stats...'
- Glyph.Data = {
- 22030000424D22030000000000003600000028000000160000000B0000000100
- 180000000000EC020000CE0E0000D80E00000000000000000000C0C0C0C0C0C0
- C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
- C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
- C00000FF0000FF000000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF000000C0
- C0C0808080808080000000C0C0C0C0C0C0C0C0C0C0C0C0808080808080000000
- 0000C0C0C00000FF0000FF0000FF000000C0C0C0C0C0C00000FF0000FF0000FF
- 000000C0C0C0808080FFFFFF808080000000C0C0C0C0C0C0808080FFFFFF8080
- 800000000000C0C0C0C0C0C00000FF0000FF0000FF0000000000FF0000FF0000
- FF000000C0C0C0C0C0C0C0C0C0808080FFFFFF808080000000808080FFFFFF80
- 8080000000C0C0C00000C0C0C0C0C0C0C0C0C00000FF0000FF0000FF0000FF00
- 00FF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFF808080FFFFFF
- 808080000000C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF
- 0000FF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFF
- FF808080000000C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C00000FF0000
- FF0000FF0000FF0000FF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FF
- FFFF808080FFFFFF808080000000C0C0C0C0C0C00000C0C0C0C0C0C00000FF00
- 00FF0000FF0000000000FF0000FF0000FF000000C0C0C0C0C0C0C0C0C0808080
- FFFFFF808080000000808080FFFFFF808080000000C0C0C00000C0C0C00000FF
- 0000FF0000FF000000C0C0C0C0C0C00000FF0000FF0000FF000000C0C0C08080
- 80FFFFFF808080000000C0C0C0C0C0C0808080FFFFFF8080800000000000C0C0
- C00000FF0000FF000000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF000000C0
- C0C0808080808080000000C0C0C0C0C0C0C0C0C0C0C0C0808080808080000000
- 0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
- C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
- C0C0C0C00000}
- NumGlyphs = 2
- OnClick = btClearClick
- end
- object btTotal: TSpeedButton
- Left = 196
- Top = 52
- Width = 48
- Height = 17
- GroupIndex = 1
- Caption = 'Total'
- OnClick = btTotalClick
- end
- object ComboBox: TComboBox
- Left = 8
- Top = 24
- Width = 237
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Guest')
- TabOrder = 0
- OnChange = ComboBoxChange
- end
- object Panel3: TPanel
- Left = 8
- Top = 76
- Width = 129
- Height = 56
- BevelInner = bvRaised
- BevelOuter = bvLowered
- TabOrder = 1
- object Label12: TLabel
- Left = 8
- Top = 6
- Width = 71
- Height = 13
- Caption = 'Games Played:'
- end
- object Label1: TLabel
- Left = 8
- Top = 21
- Width = 62
- Height = 13
- Caption = 'Games Won:'
- end
- object Label2: TLabel
- Left = 8
- Top = 36
- Width = 74
- Height = 13
- Caption = 'Average Score:'
- end
- object GamesPlayed: TLabel
- Left = 88
- Top = 6
- Width = 33
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '1265'
- end
- object GamesWon: TLabel
- Left = 88
- Top = 21
- Width = 33
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '201'
- end
- object AvScore: TLabel
- Left = 88
- Top = 36
- Width = 33
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '95,4'
- Transparent = True
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 135
- Width = 237
- Height = 41
- Caption = 'Winning Percentage: '
- TabOrder = 2
- object Gauge: TGauge
- Left = 8
- Top = 16
- Width = 219
- Height = 17
- BorderStyle = bsNone
- ForeColor = clFuchsia
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clOlive
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Progress = 50
- end
- end
- end
- object tsBestPlayer: TTabSheet
- Caption = 'Best Player'
- ImageIndex = 10
- object lblPlayer: TLabel
- Left = 9
- Top = 137
- Width = 241
- Height = 13
- AutoSize = False
- Caption = 'John Roger Taraldsen'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- Transparent = True
- end
- object Image1: TImage
- Left = 8
- Top = 8
- Width = 104
- Height = 104
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- end
- object Label7: TLabel
- Left = 120
- Top = 24
- Width = 29
- Height = 13
- Caption = 'Level:'
- end
- object Label8: TLabel
- Left = 120
- Top = 40
- Width = 31
- Height = 13
- Caption = 'Score:'
- end
- object Label9: TLabel
- Left = 120
- Top = 8
- Width = 31
- Height = 13
- Caption = 'Game:'
- end
- object Label4: TLabel
- Left = 8
- Top = 120
- Width = 31
- Height = 13
- Caption = 'Name:'
- end
- object SpeedButton1: TSpeedButton
- Left = 120
- Top = 96
- Width = 125
- Height = 17
- Caption = 'Delete Best Player...'
- Glyph.Data = {
- 22030000424D22030000000000003600000028000000160000000B0000000100
- 180000000000EC020000CE0E0000D80E00000000000000000000C0C0C0C0C0C0
- C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
- C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C00000C0C0
- C00000FF0000FF000000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF000000C0
- C0C0808080808080000000C0C0C0C0C0C0C0C0C0C0C0C0808080808080000000
- 0000C0C0C00000FF0000FF0000FF000000C0C0C0C0C0C00000FF0000FF0000FF
- 000000C0C0C0808080FFFFFF808080000000C0C0C0C0C0C0808080FFFFFF8080
- 800000000000C0C0C0C0C0C00000FF0000FF0000FF0000000000FF0000FF0000
- FF000000C0C0C0C0C0C0C0C0C0808080FFFFFF808080000000808080FFFFFF80
- 8080000000C0C0C00000C0C0C0C0C0C0C0C0C00000FF0000FF0000FF0000FF00
- 00FF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFFFF808080FFFFFF
- 808080000000C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF
- 0000FF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FFFF
- FF808080000000C0C0C0C0C0C0C0C0C00000C0C0C0C0C0C0C0C0C00000FF0000
- FF0000FF0000FF0000FF000000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0808080FF
- FFFF808080FFFFFF808080000000C0C0C0C0C0C00000C0C0C0C0C0C00000FF00
- 00FF0000FF0000000000FF0000FF0000FF000000C0C0C0C0C0C0C0C0C0808080
- FFFFFF808080000000808080FFFFFF808080000000C0C0C00000C0C0C00000FF
- 0000FF0000FF000000C0C0C0C0C0C00000FF0000FF0000FF000000C0C0C08080
- 80FFFFFF808080000000C0C0C0C0C0C0808080FFFFFF8080800000000000C0C0
- C00000FF0000FF000000C0C0C0C0C0C0C0C0C0C0C0C00000FF0000FF000000C0
- C0C0808080808080000000C0C0C0C0C0C0C0C0C0C0C0C0808080808080000000
- 0000C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
- C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0C0
- C0C0C0C00000}
- NumGlyphs = 2
- OnClick = SpeedButton1Click
- end
- object btReplay: TSpeedButton
- Left = 8
- Top = 154
- Width = 237
- Height = 23
- Caption = 'Replay this game'
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 04000000000080000000CE0E0000CE0E00001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
- FFFFFFFFFF99999FFFFFFFFF999999999FFFFFF999FFFFF999FFFF999FF000FF
- 999FFF99FFFF0FFFF99FF99FFF00F00FFF99F99FF0000000FF99F99FF0000000
- FFFFF99FF0000000FFFFF99FFF0000099999FF99FFF000FF9999FF999FFF0FFF
- F999FFF999FFFFF99999FFFF999999999FF9FFFFFF99999FFFFF}
- OnClick = btReplayClick
- end
- object lblGame: TLabel
- Left = 160
- Top = 8
- Width = 86
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '1234567890'
- end
- object lblLevel: TLabel
- Left = 168
- Top = 24
- Width = 78
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Medium'
- end
- object lblScore: TLabel
- Left = 168
- Top = 40
- Width = 78
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '208'
- end
- object Bevel1: TBevel
- Left = 120
- Top = 89
- Width = 125
- Height = 4
- Shape = bsTopLine
- end
- object Label6: TLabel
- Left = 120
- Top = 72
- Width = 26
- Height = 13
- Caption = 'Date:'
- end
- object lblDate: TLabel
- Left = 152
- Top = 72
- Width = 93
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '02.09.98'
- end
- object Label11: TLabel
- Left = 120
- Top = 56
- Width = 26
- Height = 13
- Caption = 'Time:'
- end
- object lblTime: TLabel
- Left = 152
- Top = 56
- Width = 93
- Height = 13
- Alignment = taRightJustify
- AutoSize = False
- Caption = '20:08'
- end
- end
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 223
- Width = 271
- Height = 34
- Align = alBottom
- BevelOuter = bvNone
- ParentColor = True
- TabOrder = 1
- object BitBtn1: TBitBtn
- Left = 191
- Top = 2
- Width = 75
- Height = 25
- HelpContext = 6
- TabOrder = 0
- OnClick = BitBtn1Click
- Kind = bkHelp
- end
- object BitBtn2: TBitBtn
- Left = 111
- Top = 2
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 1
- Glyph.Data = {
- DE010000424DDE01000000000000760000002800000024000000120000000100
- 0400000000006801000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 3333333333333333333333330000333333333333333333333333F33333333333
- 00003333344333333333333333388F3333333333000033334224333333333333
- 338338F3333333330000333422224333333333333833338F3333333300003342
- 222224333333333383333338F3333333000034222A22224333333338F338F333
- 8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
- 33333338F83338F338F33333000033A33333A222433333338333338F338F3333
- 0000333333333A222433333333333338F338F33300003333333333A222433333
- 333333338F338F33000033333333333A222433333333333338F338F300003333
- 33333333A222433333333333338F338F00003333333333333A22433333333333
- 3338F38F000033333333333333A223333333333333338F830000333333333333
- 333A333333333333333338330000333333333333333333333333333333333333
- 0000}
- NumGlyphs = 2
- end
- end
- end
-